unit enlaces;

interface

uses classes, sitios;

type
  TEnlace = class
  private
    Factivo: Boolean;
    FSitio2: TSitio;
    FSitio1: TSitio;
    Fnombre: string;
    procedure Setactivo(const Value: Boolean);
    procedure Setnombre(const Value: string);
    procedure SetSitio1(const Value: TSitio);
    procedure SetSitio2(const Value: TSitio);
  public
    property Nombre: string read Fnombre write Setnombre;
    property Activo: Boolean read Factivo write Setactivo;
    property Sitio1: TSitio read FSitio1 write SetSitio1;
    property Sitio2: TSitio read FSitio2 write SetSitio2;
    constructor create; overload;
  end;

  TEnlaces = class(tlist);

implementation

{ TEnlace }

constructor TEnlace.create;
begin
  Nombre := 'Nuevo enlace';
  Activo := true;
end;

procedure TEnlace.Setactivo(const Value: Boolean);
begin
  Factivo := Value;
end;

procedure TEnlace.Setnombre(const Value: string);
begin
  Fnombre := Value;
end;

procedure TEnlace.SetSitio1(const Value: TSitio);
begin
  FSitio1 := Value;
end;

procedure TEnlace.SetSitio2(const Value: TSitio);
begin
  FSitio2 := Value;
end;

end.
